Quote other suspicious characters in mml-insert-tag.

* lisp/gnus/mml.el (mml-insert-tag): Ensure that the characters
"[]<>=" are quoted correctly (bug#43009).
Copyright-paperwork-exempt: yes

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index ef8aa6ac019a95251ebbfdeab5328bc055efa001..067396fc2a6008a39593ef552a037fa7ba22855b 100644 (file)
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -1360,7 +1360,7 @@ If not set, `default-directory' will be used."
          (value (pop plist)))
       (when value
        ;; Quote VALUE if it contains suspicious characters.
-       (when (string-match "[\"'\\~/*;() \t\n[:multibyte:]]" value)
+       (when (string-match "[][\"'\\~/*;()<>= \t\n[:multibyte:]]" value)
          (setq value (with-output-to-string
                        (let (print-escape-nonascii)
                          (prin1 value)))))